home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / date / tcom / tcommod.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-08  |  3.5 KB  |  130 lines
  1. {$G+,X+,F+}
  2.  
  3. {Conditional defines that may affect this unit}
  4. {$I AWDEFINE.INC}
  5.  
  6. {*********************************************************}
  7. {*                   TCOMMOD.PAS 1.01                    *}
  8. {*        Copyright (c) TurboPower Software 1995         *}
  9. {*                 All rights reserved.                  *}
  10. {*********************************************************}
  11.  
  12. unit TComMod;
  13.  
  14. interface
  15.  
  16. uses
  17.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  18.   Forms, Dialogs, StdCtrls, Buttons, AdMisc, AdModDB, TComIni;
  19.  
  20. type
  21.   TModemForm = class(TForm)
  22.     GroupBox2: TGroupBox;
  23.     GroupBox3: TGroupBox;
  24.     Label2: TLabel;
  25.     Label3: TLabel;
  26.     Label4: TLabel;
  27.     Label5: TLabel;
  28.     Label6: TLabel;
  29.     Label7: TLabel;
  30.     Label8: TLabel;
  31.     InitializeEdit: TEdit;
  32.     DialEdit: TEdit;
  33.     DialSuffixEdit: TEdit;
  34.     CancelDialEdit: TEdit;
  35.     HangupEdit: TEdit;
  36.     ConfigureEdit: TEdit;
  37.     AnswerEdit: TEdit;
  38.     Label9: TLabel;
  39.     OkayEdit: TEdit;
  40.     Label10: TLabel;
  41.     ConnectEdit: TEdit;
  42.     Label11: TLabel;
  43.     BusyEdit: TEdit;
  44.     Label12: TLabel;
  45.     VoiceEdit: TEdit;
  46.     Label13: TLabel;
  47.     NoCarrierEdit: TEdit;
  48.     Label14: TLabel;
  49.     NoDialtoneEdit: TEdit;
  50.     Label15: TLabel;
  51.     ErrorEdit: TEdit;
  52.     RingEdit: TEdit;
  53.     Label16: TLabel;
  54.     OkBtn: TBitBtn;
  55.     CancelBtn: TBitBtn;
  56.     HelpBtn: TBitBtn;
  57.     GroupBox4: TGroupBox;
  58.     Label17: TLabel;
  59.     BPSRateEdit: TEdit;
  60.     LockDTEBox: TCheckBox;
  61.     procedure OkBtnClick(Sender: TObject);
  62.  
  63.   public
  64.  
  65.     constructor Create(AOwner : TComponent); override;
  66.   end;
  67.  
  68. implementation
  69.  
  70. {$R *.DFM}
  71.  
  72. constructor TModemForm.Create(AOwner : TComponent);
  73. begin
  74.   inherited Create(AOwner);
  75.  
  76.   {set initial control values}
  77.   with ModemInfo do begin
  78.     InitializeEdit.Text := InitCmd;
  79.     DialEdit.Text       := DialCmd;
  80.     DialSuffixEdit.Text := DialTerm;
  81.     CancelDialEdit.Text := DialCancel;
  82.     HangupEdit.Text     := HangupCmd;
  83.     ConfigureEdit.Text  := ConfigCmd;
  84.     AnswerEdit.Text     := AnswerCmd;
  85.     OkayEdit.Text       := OkMsg;
  86.     ConnectEdit.Text    := ConnectMsg;
  87.     BusyEdit.Text       := BusyMsg;
  88.     VoiceEdit.Text      := VoiceMsg;
  89.     NoCarrierEdit.Text  := NoCarrierMsg;
  90.     NoDialToneEdit.Text := NoDialToneMsg;
  91.     ErrorEdit.Text      := ErrorMsg;
  92.     RingEdit.Text       := RingMsg;
  93.     BPSRateEdit.Text    := IntToStr(DefBaud);
  94.     LockDTEBox.Checked  := LockDTE;
  95.   end;
  96. end;
  97.  
  98. procedure TModemForm.OkBtnClick(Sender: TObject);
  99. var
  100.   E    : Integer;
  101.   Temp : LongInt;
  102.  
  103. begin
  104.   with ModemInfo do begin
  105.     InitCmd       := TrimTrail(InitializeEdit.Text);
  106.     DialCmd       := TrimTrail(DialEdit.Text);
  107.     DialTerm      := TrimTrail(DialSuffixEdit.Text);
  108.     DialCancel    := TrimTrail(CancelDialEdit.Text);
  109.     HangupCmd     := TrimTrail(HangupEdit.Text);
  110.     ConfigCmd     := TrimTrail(ConfigureEdit.Text);
  111.     AnswerCmd     := TrimTrail(AnswerEdit.Text);
  112.     OkMsg         := TrimTrail(OkayEdit.Text);
  113.     ConnectMsg    := TrimTrail(ConnectEdit.Text);
  114.     BusyMsg       := TrimTrail(BusyEdit.Text);
  115.     VoiceMsg      := TrimTrail(VoiceEdit.Text);
  116.     NoCarrierMsg  := TrimTrail(NoCarrierEdit.Text);
  117.     NoDialToneMsg := TrimTrail(NoDialToneEdit.Text);
  118.     ErrorMsg      := TrimTrail(ErrorEdit.Text);
  119.     RingMsg       := TrimTrail(RingEdit.Text);
  120.  
  121.     Val(BPSRateEdit.Text, Temp, E);
  122.     if (E = 0) and ValidBaud(Temp) then
  123.       DefBaud := Temp;
  124.  
  125.     LockDTE := LockDTEBox.Checked;
  126.   end;
  127. end;
  128.  
  129. end.
  130.